#!/usr/bin/env perl

use strict;
use utf8;

sub format_big_money{
		my $money = sprintf "%.2f", shift @_;

		'loop' while $money =~ s/^(-?\d+)(\d\d\d)/$1,$2/;
		$money =~ s/^(-?)/$1\$/;
		$money;
}

foreach(@ARGV){
	printf "%32s ====> %-64s\n", $_, format_big_money($_);
}
